﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<card title="使用情人花" ontimer="index.asp?cc=<%=request("cc")%>">
<timer value="10"/>
<p>

<%
wpid=request("wpid")
ids=myid

%>
<%
if wpid="y6" then
tstl="2"
yname="情人花"
end if


set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select "&wpid&" from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,1
if rs(""&wpid&"")<1 then
msg="您没有情人花！是不是忘记带眼镜啦~~"
else
set rs8=Server.CreateObject("ADODB.Recordset")
strsQL="select gj from sx where cstr(ids)='"&myid& "'"
rs8.open strsQL,liao,1,1
 rs8.Close
	Set rs8=Nothing
if gj=100000 then
msg="您的身体已经够棒了，不能再用任何药品！"
else
sql="update sx set gj=gj+"&tstl&" where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您服用了"&yname&"后,攻击力提升"&tstl&""
END IF
end if
Response.Write ""&msg&"正在返回......<br/>=========<br/>"
 rs.Close
	Set rs=Nothing
     
      
%>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[我的江湖]</a><br/>

<%qingtian.shuchu%>

